perm filename MOD2[1,LCS] blob sn#305781 filedate 1977-09-19 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE
C00003 ENDMK
C⊗;
PRECEDE;
SEG(F5);.01 0 1 50 .05 100;
VARIABLE /PX4;
INSTRUMENT GENRL;
OSCIL[10](P4*PX4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);
OUTA←OUTA+U2;
END;

INSTRUMENT ENVLP;
PX4 ← OSCIL[10](P4,10*MAG/P3,P5); <P3 = DURATION OF LONG ENVELOPE
END;
*
GENRL ;
P2 RH/A(8/16// 8// 2)/@A/@A;
P3 NOTES/PC5/B/A/ GS/A/ E/ EF/D/F/ E/GS/ G5/
FS3/G/B/ BF/CS5/C4/FINE;
P4 1000;
P5 F1;
P6 F4;
END;
ENVLP 0 0 2;
P2 6;
P3 6;
P4 1.5;
P5 F5;
END;